home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / allcrack / frmmain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-10-05  |  9.3 KB  |  320 lines
  1. VERSION 5.00
  2. Begin VB.Form Main 
  3.    AutoRedraw      =   -1  'True
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Microsoft Internet Explorer Sim"
  6.    ClientHeight    =   855
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   1680
  10.    Icon            =   "frmMain.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    LockControls    =   -1  'True
  13.    MaxButton       =   0   'False
  14.    Picture         =   "frmMain.frx":030A
  15.    ScaleHeight     =   855
  16.    ScaleWidth      =   1680
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   3  'Windows Default
  19.    Begin VB.PictureBox Picture2 
  20.       Appearance      =   0  'Flat
  21.       AutoSize        =   -1  'True
  22.       BackColor       =   &H80000005&
  23.       BorderStyle     =   0  'None
  24.       ForeColor       =   &H80000008&
  25.       Height          =   330
  26.       Left            =   165
  27.       Picture         =   "frmMain.frx":572E
  28.       ScaleHeight     =   330
  29.       ScaleWidth      =   345
  30.       TabIndex        =   2
  31.       Top             =   2880
  32.       Width           =   345
  33.    End
  34.    Begin VB.PictureBox Picture1 
  35.       Appearance      =   0  'Flat
  36.       AutoSize        =   -1  'True
  37.       BackColor       =   &H80000005&
  38.       BorderStyle     =   0  'None
  39.       ForeColor       =   &H80000008&
  40.       Height          =   330
  41.       Left            =   1290
  42.       Picture         =   "frmMain.frx":66B2
  43.       ScaleHeight     =   330
  44.       ScaleWidth      =   345
  45.       TabIndex        =   1
  46.       Top             =   480
  47.       Width           =   345
  48.    End
  49.    Begin VB.Timer Timer1 
  50.       Enabled         =   0   'False
  51.       Interval        =   2000
  52.       Left            =   5325
  53.       Top             =   690
  54.    End
  55.    Begin VB.PictureBox Picture3 
  56.       Appearance      =   0  'Flat
  57.       AutoSize        =   -1  'True
  58.       BackColor       =   &H80000005&
  59.       BorderStyle     =   0  'None
  60.       ForeColor       =   &H80000008&
  61.       Height          =   330
  62.       Left            =   165
  63.       Picture         =   "frmMain.frx":7636
  64.       ScaleHeight     =   330
  65.       ScaleWidth      =   345
  66.       TabIndex        =   3
  67.       Top             =   2880
  68.       Width           =   345
  69.    End
  70.    Begin VB.Image Image8 
  71.       Height          =   255
  72.       Left            =   765
  73.       Picture         =   "frmMain.frx":85BA
  74.       Top             =   2880
  75.       Width           =   255
  76.    End
  77.    Begin VB.Image Image7 
  78.       Height          =   255
  79.       Left            =   1380
  80.       Picture         =   "frmMain.frx":9282
  81.       Top             =   45
  82.       Width           =   255
  83.    End
  84.    Begin VB.Image Image5 
  85.       Height          =   255
  86.       Left            =   510
  87.       Picture         =   "frmMain.frx":9F4A
  88.       Top             =   2880
  89.       Width           =   255
  90.    End
  91.    Begin VB.Image Image4 
  92.       Height          =   255
  93.       Left            =   1125
  94.       Picture         =   "frmMain.frx":AC12
  95.       Top             =   45
  96.       Width           =   255
  97.    End
  98.    Begin VB.Label Label1 
  99.       Alignment       =   2  'Center
  100.       BackStyle       =   0  'Transparent
  101.       Caption         =   "Start"
  102.       BeginProperty Font 
  103.          Name            =   "MS Sans Serif"
  104.          Size            =   9.75
  105.          Charset         =   0
  106.          Weight          =   700
  107.          Underline       =   0   'False
  108.          Italic          =   0   'False
  109.          Strikethrough   =   0   'False
  110.       EndProperty
  111.       ForeColor       =   &H00FFFFFF&
  112.       Height          =   240
  113.       Left            =   90
  114.       TabIndex        =   4
  115.       Top             =   525
  116.       Width           =   1155
  117.    End
  118.    Begin VB.Image Image2 
  119.       Height          =   330
  120.       Left            =   165
  121.       Picture         =   "frmMain.frx":B8DA
  122.       Top             =   2550
  123.       Width           =   1245
  124.    End
  125.    Begin VB.Image Image1 
  126.       Height          =   330
  127.       Left            =   45
  128.       Picture         =   "frmMain.frx":D7D6
  129.       Top             =   480
  130.       Width           =   1245
  131.    End
  132.    Begin VB.Label Label5 
  133.       BackStyle       =   0  'Transparent
  134.       Height          =   360
  135.       Left            =   45
  136.       TabIndex        =   0
  137.       Top             =   45
  138.       Width           =   1080
  139.    End
  140.    Begin VB.Image Image6 
  141.       Height          =   255
  142.       Left            =   525
  143.       Picture         =   "frmMain.frx":F6D2
  144.       Top             =   2880
  145.       Width           =   255
  146.    End
  147.    Begin VB.Image Image3 
  148.       Height          =   330
  149.       Left            =   165
  150.       Picture         =   "frmMain.frx":1039A
  151.       Top             =   2550
  152.       Width           =   1245
  153.    End
  154.    Begin VB.Image Image9 
  155.       Height          =   255
  156.       Left            =   765
  157.       Picture         =   "frmMain.frx":12296
  158.       Top             =   2880
  159.       Width           =   255
  160.    End
  161. Attribute VB_Name = "Main"
  162. Attribute VB_GlobalNameSpace = False
  163. Attribute VB_Creatable = False
  164. Attribute VB_PredeclaredId = True
  165. Attribute VB_Exposed = False
  166. Dim c
  167. Private Sub Form_Load()
  168. Dim retn As String
  169. retn = GetSetting("IE5 Sim", "IE5 Sim", "1")
  170. If retn = "1" Then
  171. Call Shell("C:\Program Files\AllAdvantage.com\Viewbar\Viewbar.exe")
  172. End If
  173. c = 1
  174. Me.Show
  175. With nid
  176. .cbSize = Len(nid)
  177. .hwnd = Main.hwnd
  178. .uId = vbNull
  179. .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
  180. .uCallBackMessage = WM_MOUSEMOVE
  181. .hIcon = Main.Icon
  182. .szTip = "AllAdvantage Crack" & vbNullChar
  183. End With
  184. Shell_NotifyIcon NIM_ADD, nid
  185. End Sub
  186. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  187. Dim Result As Long, msg As Long
  188. If Me.ScaleMode = vbPixels Then
  189. msg = X
  190. msg = X / Screen.TwipsPerPixelX
  191. End If
  192. Select Case msg
  193. Case WM_LBUTTONUP
  194. Me.WindowState = vbNormal
  195. Result = SetForegroundWindow(Me.hwnd)
  196. Me.Show
  197. If Help.restore.Caption = "Restore" Then
  198. Help.restore.Caption = "Minimize"
  199. End If
  200. Case WM_LBUTTONDBLCLK
  201. Me.WindowState = vbNormal
  202. Result = SetForegroundWindow(Me.hwnd)
  203. Me.Show
  204. If Help.restore.Caption = "Restore" Then
  205. Help.restore.Caption = "Minimize"
  206. End If
  207. Case WM_RBUTTONUP
  208. Me.PopupMenu Help.MnuMain
  209. End Select
  210. End Sub
  211. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  212. Shell_NotifyIcon NIM_DELETE, nid
  213. End Sub
  214. Private Sub Form_Resize()
  215. If Me.WindowState = vbMinimized Then Me.Hide
  216. End Sub
  217. Private Sub Form_Terminate()
  218. Shell_NotifyIcon NIM_DELETE, nid
  219. End Sub
  220. Private Sub Form_Unload(Cancel As Integer)
  221. Shell_NotifyIcon NIM_DELETE, nid
  222. End Sub
  223. Private Sub Image1_Click()
  224. If Label1.Caption = "Start" Then
  225. Label1.Caption = "Stop"
  226. Timer1.Enabled = True
  227. ElseIf Label1.Caption = "Stop" Then
  228. Label1.Caption = "Start"
  229. Timer1.Enabled = False
  230. End If
  231. End Sub
  232. Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  233. Image1 = Image3
  234. End Sub
  235. Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  236. Image1 = Image2
  237. End Sub
  238. Private Sub Image4_Click()
  239. Shell_NotifyIcon NIM_DELETE, nid
  240. End Sub
  241. Private Sub Image4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  242. Image4 = Image6
  243. End Sub
  244. Private Sub Image4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  245. Image4 = Image5
  246. End Sub
  247. Private Sub Image7_Click()
  248. If Help.restore.Caption = "Restore" Then
  249. Help.restore.Caption = "Minimize"
  250. Help.restore.Caption = "Restore"
  251. End If
  252. If Help.restore.Caption = "Restore" Then
  253. Help.restore.Caption = "Minimize"
  254. Help.restore.Caption = "Restore"
  255. End If
  256. Me.WindowState = vbMinimized
  257. Me.Hide
  258. End Sub
  259. Private Sub Image7_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  260. Image7 = Image9
  261. End Sub
  262. Private Sub Image7_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  263. Image7 = Image8
  264. End Sub
  265. Private Sub Label1_Click()
  266. If Label1.Caption = "Start" Then
  267. Label1.Caption = "Stop"
  268. Timer1.Enabled = True
  269. ElseIf Label1.Caption = "Stop" Then
  270. Label1.Caption = "Start"
  271. Timer1.Enabled = False
  272. End If
  273. End Sub
  274. Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  275. Image1 = Image3
  276. End Sub
  277. Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  278. Image1 = Image2
  279. End Sub
  280. Private Sub Label5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  281. If Button = 1 Then
  282. ReleaseCapture
  283. Call SendMessage(Main.hwnd, WM_NCLBUTTONDOWN, 2, 0&)
  284. Call SetForegroundWindow(Main.hwnd)
  285. End If
  286. End Sub
  287. Private Sub Label5_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  288. Call SetForegroundWindow(Main.hwnd)
  289. End Sub
  290. Private Sub Picture1_Click()
  291. Help.Show
  292. End Sub
  293. Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  294. Picture1 = Picture3
  295. End Sub
  296. Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  297. Picture1 = Picture2
  298. End Sub
  299. Private Sub Timer1_Timer()
  300. If c = 1 Then
  301. c = True
  302. End If
  303. Call SetForegroundWindow(Main.hwnd)
  304. Dim RECT As POINTAPI, a&, b&
  305. Call GetCursorPos(RECT)
  306. a& = RECT.X
  307. b& = RECT.Y
  308. If c = True Then
  309. Call SetCursorPos(a& + 1, b)
  310. ElseIf c = False Then
  311. Call SetCursorPos(a& - 1, b)
  312. End If
  313. If a& = Screen.Width / Screen.TwipsPerPixelX - 1 Then
  314. c = False
  315. End If
  316. If a& = 0 Then
  317. c = True
  318. End If
  319. End Sub
  320.